PD ROM 1

home *** CD-ROM | disk | FTP | other *** search

/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Updates⁄New / TicklerMaster™ File / card_14741.txt < prev next >

Wrap

Text File | 1988-06-01 | 10.4 KB | 265 lines

-- card: 14741 from stack: in -- bmap block id: 0 -- flags: 0000 -- background id: 2728 -- name: -- part 1 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=454 top=237 right=285 bottom=495 -- title width / last selected line: 0 -- icon id / first selected line: 1007 / 1007 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Print ----- HyperTalk script ----- on mouseUp answer "What do you wish to print?" with "Cancel" or "Print Card" or "Print All" if it is "Cancel" then close printing exit mouseUp else if it is "Print Card" then doMenu "Print Card" close printing exit mouseUp else if it is "Print All" then open printing with dialog print this card get line 1 of field id 18 if it is empty then close printing exit mouseUp else if it is not empty then set lockScreen to true go it print this card go card id 2898 get line 2 of field id 18 if it is empty then close printing exit mouseUp else if it is not empty then go it print this card go card id 2898 get line 3 of field id 18 if it is empty then close printing exit mouseUp else if it is not empty then go it print this card go card id 2898 get line 4 of field id 18 if it is empty then close printing exit mouseUp else if it is not empty then go it print this card go card id 2898 get line 5 of field id 18 if it is empty then close printing exit mouseUp else if it is not empty then go it print this card go card id 2898 get line 6 of field id 18 if it is empty then close printing exit mouseUp else if it is not empty then go it print this card go card id 2898 get line 7 of field id 18 if it is empty then close printing exit mouseUp else if it is not empty then go it print this card go card id 2898 get line 8 of field id 18 if it is empty then close printing exit mouseUp else if it is not empty then go it print this card go card id 2898 get line 9 of field id 18 if it is empty then close printing exit mouseUp else if it is not empty then go it print this card go card id 2898 get line 10 of field id 18 if it is empty then close printing exit mouseUp else if it is not empty then go it print this card go card id 2898 get line 11 of field id 18 if it is empty then close printing exit mouseUp else if it is not empty then go it print this card go card id 2898 get line 12 of field id 18 if it is empty then close printing exit mouseUp else if it is not empty then go it print this card go card id 2898 get line 13 of field id 18 if it is empty then close printing exit mouseUp else if it is not empty then go it print this card go card id 2898 get line 14 of field id 18 if it is empty then close printing exit mouseUp else if it is not empty then go it print this card go card id 2898 get line 15 of field id 18 if it is empty then close printing exit mouseUp else if it is not empty then go it print this card go card id 2898 get line 16 of field id 18 if it is empty then close printing exit mouseUp else if it is not empty then go it print this card end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if end if close printing set lockScreen to false end mouseUp -- part contents for background part 48 ----- text ----- TicklerMaster File‚Ñ¢ ¬©1988 by James C. √áasebier, Jr. 105 Center Street Box-172 Hartford, Kentucky 42347 Click To continue HyperCard Shareware $20.00 -- part contents for background part 6 ----- text ----- Friday, January 1, 1904